home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / Src / Ch17 / Tetra.ray < prev    next >
Text File  |  1999-07-06  |  3KB  |  99 lines
  1. Viewpoint(1000, 3.0, -0.2)
  2. AmbientLight(128, 128, 128)
  3. LightSource(-1000, -500, 1000, 255, 255, 255)
  4. LightSource(1000, -500, 1000, 255, 255, 255)
  5. Cylinder(10,    ' Radius
  6.   -56.25, 50, 64.9519,
  7.   -56.25, 50, -64.9519,
  8.   0.6, 0.6, 0.1, ' Ambient
  9.   0.6, 0.6, 0.1, ' Diffuse
  10.   10, 0.3,       ' Specular
  11.   0, 0, 0,       ' Reflected
  12.   1, 1, 1,       ' TransN, n1, n2
  13.   0, 0, 0        ' Transmitted
  14. )
  15. Cylinder(10,    ' Radius
  16.   -56.25, 50, -64.9519,
  17.   93.75, 50, 0,
  18.   0.6, 0.6, 0.1, ' Ambient
  19.   0.6, 0.6, 0.1, ' Diffuse
  20.   10, 0.3,       ' Specular
  21.   0, 0, 0,       ' Reflected
  22.   1, 1, 1,       ' TransN, n1, n2
  23.   0, 0, 0        ' Transmitted
  24. )
  25. Cylinder(10,    ' Radius
  26.   -56.25, 50, 64.9519,
  27.   93.75, 50, 0,
  28.   0.6, 0.6, 0.1, ' Ambient
  29.   0.6, 0.6, 0.1, ' Diffuse
  30.   10, 0.3,       ' Specular
  31.   0, 0, 0,       ' Reflected
  32.   1, 1, 1,       ' TransN, n1, n2
  33.   0, 0, 0        ' Transmitted
  34. )
  35. Cylinder(10,    ' Radius
  36.   0, -89.05373, 0,
  37.   -56.25, 50, 64.9519,
  38.   0.6, 0.6, 0.1, ' Ambient
  39.   0.6, 0.6, 0.1, ' Diffuse
  40.   10, 0.3,       ' Specular
  41.   0, 0, 0,       ' Reflected
  42.   1, 1, 1,       ' TransN, n1, n2
  43.   0, 0, 0        ' Transmitted
  44. )
  45. Cylinder(10,    ' Radius
  46.   0, -89.05373, 0,
  47.   -56.25, 50, -64.9519,
  48.   0.6, 0.6, 0.1, ' Ambient
  49.   0.6, 0.6, 0.1, ' Diffuse
  50.   10, 0.3,       ' Specular
  51.   0, 0, 0,       ' Reflected
  52.   1, 1, 1,       ' TransN, n1, n2
  53.   0, 0, 0        ' Transmitted
  54. )
  55. Cylinder(10,    ' Radius
  56.   0, -89.05373, 0,
  57.   93.75, 50, 0,
  58.   0.6, 0.6, 0.1, ' Ambient
  59.   0.6, 0.6, 0.1, ' Diffuse
  60.   10, 0.3,       ' Specular
  61.   0, 0, 0,       ' Reflected
  62.   1, 1, 1,       ' TransN, n1, n2
  63.   0, 0, 0        ' Transmitted
  64. )
  65. Sphere( 10, 0, -89.05373, 0,
  66.   0.6, 0.6, 0.1, ' Ambient
  67.   0.6, 0.6, 0.1, ' Diffuse
  68.   10, 0.3,       ' Specular
  69.   0, 0, 0,       ' Reflected
  70.   1, 1, 1,       ' TransN, n1, n2
  71.   0, 0, 0        ' Transmitted
  72. )
  73. Sphere( 10, -56.25, 50, 64.9519,
  74.   0.6, 0.6, 0.1, ' Ambient
  75.   0.6, 0.6, 0.1, ' Diffuse
  76.   10, 0.3,       ' Specular
  77.   0, 0, 0,       ' Reflected
  78.   1, 1, 1,       ' TransN, n1, n2
  79.   0, 0, 0        ' Transmitted
  80. )
  81. Sphere( 10, -56.25, 50, -64.9519,
  82.   0.6, 0.6, 0.1, ' Ambient
  83.   0.6, 0.6, 0.1, ' Diffuse
  84.   10, 0.3,       ' Specular
  85.   0, 0, 0,       ' Reflected
  86.   1, 1, 1,       ' TransN, n1, n2
  87.   0, 0, 0        ' Transmitted
  88. )
  89. Sphere( 10, 93.75, 50, 0,
  90.   0.6, 0.6, 0.1, ' Ambient
  91.   0.6, 0.6, 0.1, ' Diffuse
  92.   10, 0.3,       ' Specular
  93.   0, 0, 0,       ' Reflected
  94.   1, 1, 1,       ' TransN, n1, n2
  95.   0, 0, 0        ' Transmitted
  96. )
  97.  
  98.  
  99.